home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / menu enhancements / load-menus-old.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  830 b   |  25 lines  |  [TEXT/CCL2]
  1. (in-package cl-user)
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;; load-menus-old.lisp
  4. ;;
  5. ;; Copyright © 1992 University of Toronto, Department of Computer Science
  6. ;; All Rights Reserved
  7. ;;
  8. ;; author: Mark A. Tapia
  9. ;; 
  10. ;; Edit this file and change the directory structure if the
  11. ;; menu enhancements are not stored in the "menu enhancements" folder 
  12. ;; in the main CCL directory.
  13. ;;
  14. ;; Load this file when running MCL2.0b1 
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. (defparameter mcl-final nil)
  17. (defparameter menu-dir nil)
  18. (def-logical-directory "menu-dir" "ccl;menu enhancements")
  19. (setq menu-dir "menu-dir;")
  20. (load (format nil "~amake-menus.lisp" menu-dir))
  21. (set-mac-default-directory (mac-directory-namestring menu-dir))
  22.  
  23. (use-package 'menus)
  24. (menus::load-menus)
  25.